home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / displa1r / frmdrag.frm < prev    next >
Text File  |  1999-09-03  |  3KB  |  92 lines
  1. VERSION 5.00
  2. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
  3. Begin VB.Form FrmDrag 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Drag & Drop Demonstration"
  6.    ClientHeight    =   2505
  7.    ClientLeft      =   240
  8.    ClientTop       =   1545
  9.    ClientWidth     =   7230
  10.    Icon            =   "FrmDrag.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   2505
  15.    ScaleWidth      =   7230
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin RichTextLib.RichTextBox rt1 
  18.       Height          =   2415
  19.       Left            =   3120
  20.       TabIndex        =   1
  21.       Top             =   0
  22.       Width           =   4095
  23.       _ExtentX        =   7223
  24.       _ExtentY        =   4260
  25.       _Version        =   393217
  26.       Enabled         =   -1  'True
  27.       ScrollBars      =   3
  28.       RightMargin     =   10000
  29.       TextRTF         =   $"FrmDrag.frx":0442
  30.    End
  31.    Begin VB.ListBox List1 
  32.       Height          =   2400
  33.       ItemData        =   "FrmDrag.frx":04F0
  34.       Left            =   0
  35.       List            =   "FrmDrag.frx":04F2
  36.       OLEDropMode     =   1  'Manual
  37.       TabIndex        =   0
  38.       Top             =   0
  39.       Width           =   3015
  40.    End
  41. End
  42. Attribute VB_Name = "FrmDrag"
  43. Attribute VB_GlobalNameSpace = False
  44. Attribute VB_Creatable = False
  45. Attribute VB_PredeclaredId = True
  46. Attribute VB_Exposed = False
  47.  
  48. 'The settings for format are:
  49. 'Constant       Value       Description
  50. 'vbCFText       1           Text (.txt files)
  51. 'vbCFBitmap     2           Bitmap (.bmp files)
  52. 'vbCFMetafile   3           metafile (.wmf files)
  53. 'vbCFEMetafile  14          Enhanced metafile (.emf files)
  54. 'vbCFDIB        8           Device-independent bitmap (DIB)
  55. 'vbCFPalette    9           Color palette
  56. 'vbCFFiles      15          List of files
  57. 'vbCFRTF        -16639      Rich text format (.rtf files)
  58.  
  59. Private Sub Form_Load()
  60. List1.OLEDropMode = 1
  61. List1.OLEDragMode = 1
  62. rt1.OLEDropMode = 1
  63. End Sub
  64.  
  65. Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
  66. Dim i%
  67. If Data.GetFormat(vbCFFiles) Then
  68.     Caption = Data.Files.Count & " object(s) selected"
  69.     List1.Clear
  70.     For i = 1 To Data.Files.Count
  71.         List1.AddItem Data.Files(i%)
  72.     Next i
  73. End If
  74. ''' if drag text from rt1
  75. 'If Data.GetFormat(vbCFText) Then
  76. '    List1.AddItem "Text : " & Data.GetData(vbCFText)
  77. 'End If
  78. End Sub
  79.  
  80.  
  81.  
  82. Private Sub rt1_OLEDragDrop(Data As RichTextLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
  83. If Data.GetFormat(vbCFText) Then
  84.     rt1.LoadFile Data.GetData(vbCFText), rtfText
  85. End If
  86. If Data.GetFormat(vbCFFiles) Then
  87.     rt1.LoadFile Data.Files(1), rtfText  'Load one file for demo
  88. End If
  89. Caption = rt1.FileName
  90. End Sub
  91.  
  92.